home *** CD-ROM | disk | FTP | other *** search
/ Macwelt 1 / Macwelt DVD 1.toast / Web-Publishing / HTML-Editoren / Alpha ƒ / Tcl / Modes / Matlab mode / matlabMacros.tcl < prev    next >
Encoding:
Text File  |  1998-04-05  |  5.6 KB  |  194 lines
  1. ################################################################################
  2. #
  3. # matlabMacros.tcl, part of the matlab mode package
  4. # 
  5. # Send various commands to MATLAB
  6. # 
  7. ################################################################################
  8.  
  9. proc matlabMacros.tcl {} {}
  10.  
  11. #~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~+
  12. #
  13. # ◊◊◊◊ MATLAB Workspace ◊◊◊◊ #
  14. #
  15. #~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~-
  16.  
  17. ################################################################################
  18. #  Reset MATLAB path
  19. ################################################################################
  20.  
  21. proc matlabRebuildPath {} {
  22.     set scriptName "path(path)"
  23.     matlabDoScript $scriptName 0
  24.     message $scriptName
  25. }
  26.  
  27.  
  28. ################################################################################
  29. #  Clears the current window's script/function from the workspace
  30. ################################################################################
  31.  
  32. proc matlabClearProcedure {} {
  33.     set mFile [lindex [winNames -f] 0]
  34.     set procName [file rootname [file tail $mFile]]
  35.     set scriptName "clear $procName"
  36.     matlabDoScript $scriptName 0
  37.     message $scriptName
  38. }
  39.     
  40.  
  41. ################################################################################
  42. #  Clears the workspace
  43. ################################################################################
  44.  
  45. proc matlabClear {} {
  46.     set scriptName "clear"
  47.     matlabDoScript $scriptName 0
  48.     message $scriptName
  49. }
  50.  
  51. ################################################################################
  52. #  Closes all figure windows
  53. ################################################################################
  54.  
  55. proc matlabCloseAll {} {
  56.     set scriptName "close all"
  57.     matlabDoScript $scriptName 0
  58.     message $scriptName
  59. }
  60.  
  61. ################################################################################
  62. # Get the path of the current window and add it to MATLAB's path
  63. ################################################################################
  64.  
  65. proc matlabAddToPath {} {
  66.  
  67.     set mFile [lindex [winNames -f] 0]
  68.     regsub -all {'} [file dirname $mFile] {''} mFilePath
  69.     matlabDoScript "path(path,'$mFilePath');" 0
  70.     message "Added '$mFilePath' to path."
  71.     
  72. }
  73.  
  74. ################################################################################
  75. # CD to the path of the current window
  76. ################################################################################
  77.  
  78. proc matlabCdToWin {} {
  79.  
  80.     set mFile [lindex [winNames -f] 0]
  81.     regsub -all {'} [file dirname $mFile] {''} mFilePath
  82.     matlabDoScript "cd('$mFilePath');" 0
  83.     message "cd('$mFilePath')"
  84.     
  85. }
  86.  
  87.  
  88. #~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~+
  89. #
  90. # ◊◊◊◊ MATLAB debugging ◊◊◊◊ #
  91. #
  92. #~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~-
  93.  
  94. ################################################################################
  95. #  Turn on debugging
  96. ################################################################################
  97.  
  98. proc matlabStopIfError {} {
  99.     set scriptName "dbstop if error"
  100.     matlabDoScript $scriptName 0
  101.     message $scriptName
  102. }
  103.  
  104.  
  105. ################################################################################
  106. #  Turn off debugging
  107. ################################################################################
  108.  
  109. proc matlabDbClear {} {
  110.     set scriptName "dbclear all"
  111.     matlabDoScript $scriptName 0
  112.     message $scriptName
  113. }
  114.  
  115.  
  116. ################################################################################
  117. #  Turn on debugging for current window's script/function
  118. ################################################################################
  119.  
  120. proc matlabStopInFile {} {
  121.     set mFile [lindex [winNames -f] 0]
  122.     set procName [file rootname [file tail $mFile]]
  123.     set scriptName "dbstop in $procName"
  124.     matlabDoScript $scriptName 0
  125.     message $scriptName
  126. }
  127.  
  128.  
  129. ################################################################################
  130. #  Turn on debugging for current window's script/function
  131. ################################################################################
  132.  
  133. proc matlabStopAtCurrentLine {} {
  134.     set mFile [lindex [winNames -f] 0]
  135.     set procName [file rootname [file tail $mFile]]
  136.  
  137.     set lineno [lindex [posToRowCol [getPos]] 0]
  138.     
  139.     set scriptName "dbstop at $lineno in $procName"
  140.     matlabDoScript $scriptName 0
  141.     message $scriptName
  142. }
  143.  
  144.  
  145. ################################################################################
  146. #  Debug step
  147. ################################################################################
  148.  
  149. proc matlabDebugStep {{nlines 1}} {
  150.     set scriptName "dbstep $nlines"
  151.     matlabDoScript $scriptName
  152.     message $scriptName
  153. }
  154.  
  155.  
  156. ################################################################################
  157. #  List breakpoints for a file
  158. ################################################################################
  159.  
  160. proc matlabDebugStatus {} {
  161.     set mFile [lindex [winNames -f] 0]
  162.     set procName [file rootname [file tail $mFile]]
  163.     set scriptName "dbstatus $procName"
  164.     set res [matlabDoScript $scriptName 0]
  165.     set text "Breakpoints in $procName"
  166.     matlabShowDefinition $text $res
  167. }
  168.  
  169.  
  170. ################################################################################
  171. #  Open the file that caused the MATLAB error
  172. ################################################################################
  173.  
  174. proc matlabOpenErrorFile {} {
  175.     global lastMatlabResult
  176.     
  177.     if {[regexp -- {(Error in ==> )([^\r]*)([\r]On line )+([^=]*)(==>)} $lastMatlabResult d1 d2 mFile d3 line]} {
  178.         set fname [string trim $mFile]
  179.         set line [string trim $line]
  180.     
  181.         if {[catch {edit $mFile}]} {
  182.             beep
  183.             alertnote "Could not open file, $mFile"
  184.         } else {
  185.             set pos [rowColToPos $line 0]
  186.             select $pos [nextLineStart $pos]
  187.         }
  188.     } else {
  189.             beep
  190.             alertnote "No error or no file to open from last command."
  191.     }
  192. }
  193.  
  194.